SUBROUTINE NEWR
	COMMON/PTR/PWDS(1)/LIMIT/LIMIT,ITEM,LL,IS,IX
	COMMON/XRN/RN(1) /SCM/V(78),I,LCNT,STAFF,LIST(200),REND
	COMMON/SCX/JALPHA(30),JX,U,JZ,IRHY,J4,KA,KB,IZ
	1 /SC/J,L,MK,ISKP,XMINUS,N,IEXP,LK,NNUM,JJ,JA,DBST,NFLG
	1 ,IXX,ISEMI,IQT,VX(50),IAMP,K,KN,M,MODE,IBLA
	1 /RINP/R(10,80),RPOS(2,50),RI(200) 
	IF(MODE.NE.1)GO TO 1
	IK=IS
	JIT=ITEM
	KZ=IZ
1	IS=IK
	ITEM=JIT+1
C  MODE 1=NOTE, 2=RHYTH, 3=ACCENTS, 4=BEAMS, 5=SLURS.
	KZ=IZ*10
C SKIPS INVIS RESTS - ONLY NEEDED IN RHYTH.
C  JUMP FOR BEAM CONT.
	K=1
2	IEND=-1
	X=R(1,K)
	IF(X.EQ.1.)GO TO 11
	IF(X.NE.2.)GO TO 12
	IF(R(6,K).GE.0)GO TO 12
	IF(R(7,K).EQ.0)GO TO 32
C  DELETE IF INVIS. REST AND NO RHYTHMIC VALUE.)
	GO TO 12
11	IEND=0
12	RN(IS+3)=0
	RN(IS+2)=0
C  ↑↑↑↑ TO CLEAR ARRAY FOR SHORT ITEMS (CLEFS)
	LK=10
	IF(MODE.GT.3)LK=8
C ONLY LOOK AT 8 PARAMS AFTER MODE 3.
	DO 3 L=LK,1,-1
	A=R(L,K)
	IF(IEND.GE.0)GO TO 14
	IF(A.EQ.0)GO TO 3
	IEND=L
14	RN(IS+L)=A
3	CONTINUE
13	RN(IS+2)=STAFF
	IF(X.NE.1)GO TO 4
	IEND=11
	RN(IS+9)=R(2,K)
C GET RHYTH VALUE
4	IF(IEND.LT.3)IEND=3
	IF(X.NE.1.)GO TO 34
	IF(MODE.NE.3)GO TO 34
	X=IS+10
	R(1,K)=X
34	CALL UPDATE(IEND-2)
32	IF(K.GE.IZ)RETURN
	K=K+10
	GO TO 2
	END